/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / perl / mac-perl / mcprl401.bin / Perl_appl / lib / getopts.pl

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 67 65 74 6f 70 74 | 73 2e 70 6c 00 00 00 00 |..getopt|s.pl....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 03 bb 00 | 00 01 ac a6 eb df 14 a6 |........|........|
|00000060| eb df 14 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 b2 3a 00 00 |........|.....:..|
|00000080| 3b 23 20 67 65 74 6f 70 | 74 73 2e 70 6c 20 2d 20 |;# getop|ts.pl - |
|00000090| 61 20 62 65 74 74 65 72 | 20 67 65 74 6f 70 74 2e |a better| getopt.|
|000000a0| 70 6c 0d 0d 3b 23 20 55 | 73 61 67 65 3a 0d 3b 23 |pl..;# U|sage:.;#|
|000000b0| 20 20 20 20 20 20 64 6f | 20 47 65 74 6f 70 74 73 |      do| Getopts|
|000000c0| 28 27 61 3a 62 63 27 29 | 3b 20 20 23 20 2d 61 20 |('a:bc')|;  # -a |
|000000d0| 74 61 6b 65 73 20 61 72 | 67 2e 20 2d 62 20 26 20 |takes ar|g. -b & |
|000000e0| 2d 63 20 6e 6f 74 2e 20 | 53 65 74 73 20 6f 70 74 |-c not. |Sets opt|
|000000f0| 5f 2a 20 61 73 20 61 0d | 3b 23 20 20 20 20 20 20 |_* as a.|;#      |
|00000100| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000110| 20 20 20 20 20 23 20 20 | 73 69 64 65 20 65 66 66 |     #  |side eff|
|00000120| 65 63 74 2e 0d 0d 73 75 | 62 20 47 65 74 6f 70 74 |ect...su|b Getopt|
|00000130| 73 20 7b 0d 20 20 20 20 | 6c 6f 63 61 6c 28 24 61 |s {.    |local($a|
|00000140| 72 67 75 6d 65 6e 74 61 | 74 69 76 65 29 20 3d 20 |rgumenta|tive) = |
|00000150| 40 5f 3b 0d 20 20 20 20 | 6c 6f 63 61 6c 28 40 61 |@_;.    |local(@a|
|00000160| 72 67 73 2c 24 5f 2c 24 | 66 69 72 73 74 2c 24 72 |rgs,$_,$|first,$r|
|00000170| 65 73 74 29 3b 0d 20 20 | 20 20 6c 6f 63 61 6c 28 |est);.  |  local(|
|00000180| 24 65 72 72 73 29 20 3d | 20 30 3b 0d 20 20 20 20 |$errs) =| 0;.    |
|00000190| 6c 6f 63 61 6c 28 24 5b | 29 20 3d 20 30 3b 0d 0d |local($[|) = 0;..|
|000001a0| 20 20 20 20 40 61 72 67 | 73 20 3d 20 73 70 6c 69 |    @arg|s = spli|
|000001b0| 74 28 20 2f 20 2a 2f 2c | 20 24 61 72 67 75 6d 65 |t( / */,| $argume|
|000001c0| 6e 74 61 74 69 76 65 20 | 29 3b 0d 20 20 20 20 77 |ntative |);.    w|
|000001d0| 68 69 6c 65 28 40 41 52 | 47 56 20 26 26 20 28 24 |hile(@AR|GV && ($|
|000001e0| 5f 20 3d 20 24 41 52 47 | 56 5b 30 5d 29 20 3d 7e |_ = $ARG|V[0]) =~|
|000001f0| 20 2f 5e 2d 28 2e 29 28 | 2e 2a 29 2f 29 20 7b 0d | /^-(.)(|.*)/) {.|
|00000200| 09 28 24 66 69 72 73 74 | 2c 24 72 65 73 74 29 20 |.($first|,$rest) |
|00000210| 3d 20 28 24 31 2c 24 32 | 29 3b 0d 09 24 70 6f 73 |= ($1,$2|);..$pos|
|00000220| 20 3d 20 69 6e 64 65 78 | 28 24 61 72 67 75 6d 65 | = index|($argume|
|00000230| 6e 74 61 74 69 76 65 2c | 24 66 69 72 73 74 29 3b |ntative,|$first);|
|00000240| 0d 09 69 66 28 24 70 6f | 73 20 3e 3d 20 24 5b 29 |..if($po|s >= $[)|
|00000250| 20 7b 0d 09 20 20 20 20 | 69 66 28 24 61 72 67 73 | {..    |if($args|
|00000260| 5b 24 70 6f 73 2b 31 5d | 20 65 71 20 27 3a 27 29 |[$pos+1]| eq ':')|
|00000270| 20 7b 0d 09 09 73 68 69 | 66 74 28 40 41 52 47 56 | {...shi|ft(@ARGV|
|00000280| 29 3b 0d 09 09 69 66 28 | 24 72 65 73 74 20 65 71 |);...if(|$rest eq|
|00000290| 20 27 27 29 20 7b 0d 09 | 09 20 20 20 20 2b 2b 24 | '') {..|.    ++$|
|000002a0| 65 72 72 73 20 75 6e 6c | 65 73 73 20 40 41 52 47 |errs unl|ess @ARG|
|000002b0| 56 3b 0d 09 09 20 20 20 | 20 24 72 65 73 74 20 3d |V;...   | $rest =|
|000002c0| 20 73 68 69 66 74 28 40 | 41 52 47 56 29 3b 0d 09 | shift(@|ARGV);..|
|000002d0| 09 7d 0d 09 09 65 76 61 | 6c 20 22 5c 24 6f 70 74 |.}...eva|l "\$opt|
|000002e0| 5f 24 66 69 72 73 74 20 | 3d 20 5c 24 72 65 73 74 |_$first |= \$rest|
|000002f0| 3b 22 3b 0d 09 20 20 20 | 20 7d 0d 09 20 20 20 20 |;";..   | }..    |
|00000300| 65 6c 73 65 20 7b 0d 09 | 09 65 76 61 6c 20 22 5c |else {..|.eval "\|
|00000310| 24 6f 70 74 5f 24 66 69 | 72 73 74 20 3d 20 31 22 |$opt_$fi|rst = 1"|
|00000320| 3b 0d 09 09 69 66 28 24 | 72 65 73 74 20 65 71 20 |;...if($|rest eq |
|00000330| 27 27 29 20 7b 0d 09 09 | 20 20 20 20 73 68 69 66 |'') {...|    shif|
|00000340| 74 28 40 41 52 47 56 29 | 3b 0d 09 09 7d 0d 09 09 |t(@ARGV)|;...}...|
|00000350| 65 6c 73 65 20 7b 0d 09 | 09 20 20 20 20 24 41 52 |else {..|.    $AR|
|00000360| 47 56 5b 30 5d 20 3d 20 | 22 2d 24 72 65 73 74 22 |GV[0] = |"-$rest"|
|00000370| 3b 0d 09 09 7d 0d 09 20 | 20 20 20 7d 0d 09 7d 0d |;...}.. |   }..}.|
|00000380| 09 65 6c 73 65 20 7b 0d | 09 20 20 20 20 70 72 69 |.else {.|.    pri|
|00000390| 6e 74 20 53 54 44 45 52 | 52 20 22 55 6e 6b 6e 6f |nt STDER|R "Unkno|
|000003a0| 77 6e 20 6f 70 74 69 6f | 6e 3a 20 24 66 69 72 73 |wn optio|n: $firs|
|000003b0| 74 5c 6e 22 3b 0d 09 20 | 20 20 20 2b 2b 24 65 72 |t\n";.. |   ++$er|
|000003c0| 72 73 3b 0d 09 20 20 20 | 20 69 66 28 24 72 65 73 |rs;..   | if($res|
|000003d0| 74 20 6e 65 20 27 27 29 | 20 7b 0d 09 09 24 41 52 |t ne '')| {...$AR|
|000003e0| 47 56 5b 30 5d 20 3d 20 | 22 2d 24 72 65 73 74 22 |GV[0] = |"-$rest"|
|000003f0| 3b 0d 09 20 20 20 20 7d | 0d 09 20 20 20 20 65 6c |;..    }|..    el|
|00000400| 73 65 20 7b 0d 09 09 73 | 68 69 66 74 28 40 41 52 |se {...s|hift(@AR|
|00000410| 47 56 29 3b 0d 09 20 20 | 20 20 7d 0d 09 7d 0d 20 |GV);..  |  }..}. |
|00000420| 20 20 20 7d 0d 20 20 20 | 20 24 65 72 72 73 20 3d |   }.   | $errs =|
|00000430| 3d 20 30 3b 0d 7d 0d 0d | 31 3b 0d 00 00 00 00 00 |= 0;.}..|1;......|
|00000440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000480| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00000490| 03 b8 03 aa 03 9c 03 f0 | 03 e2 03 fe 00 00 00 00 |........|........|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 0a 67 65 74 6f 70 74 73 | 2e 70 6c 00 02 00 00 00 |.getopts|.pl.....|
|000004c0| 54 45 58 54 4d 50 53 20 | 00 00 00 00 00 00 00 00 |TEXTMPS |........|
|000004d0| 00 00 54 45 58 54 4d 50 | 53 20 00 00 00 00 00 00 |..TEXTMP|S ......|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 a6 ea b2 69 00 00 | 03 bb 00 00 01 ac 00 00 |.....i..|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 20 64 6f |...H..Mo|naco. do|
|00000590| 20 47 65 74 6f 70 74 73 | 28 27 61 3a 62 63 27 29 | Getopts|('a:bc')|
|000005a0| 3b 20 20 23 20 2d 00 06 | 00 08 00 3c 00 24 01 dd |;  # -..|...<.$..|
|000005b0| 02 3d 00 3c 00 24 01 dd | 02 3d a6 eb a6 d4 00 00 |.=.<.$..|.=......|
|000005c0| 02 33 00 00 02 33 00 00 | 00 00 01 00 00 00 00 1e |.3...3..|........|
|000005d0| 00 3c 00 24 01 dd 02 3d | 00 3c 00 24 01 dd 02 3d |.<.$...=|.<.$...=|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 41 |.....n..|.n...>.A|
|00000600| 62 20 0f 6e 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |b .n....|.>..MPSR|
|00000610| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 03 f0 ff ff 00 00 00 4c | 00 47 95 58 00 00 00 00 |.......L|.G.X....|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+